Jak zjistim vsechny checkboxy na formulari?

Otázka od: David Klodner

16. 3. 2004 22:53

Zdravim,

poradi mi nekdo, jak mohu zjistit, jestli mam na formulari nejake
checkboxy
a pokud ano, jak zjistit jejich nazvy?
Chci si udelat proceduru, ktera pri odchodu z formulare ulozi stav
checkboxu (checked=true/false)
a ulozi to do souboru.
Naopak pri otevreni precte hodnoty ze souboru a nastavi checkboxy.

Diky

David Klodner

WinXP, D5 Prof., IB

Odpovedá: votavaSW

17. 3. 2004 0:54

    for i:=0 to form1.ControlCount-1 do
    begin
      if form1.Controls[i].className='TCheckBox' then
        inc(countCheckBox)
    end;

s pozdravem Votava

----- Original Message -----
From: "David Klodner" <d.klodner@ordis.cz>
To: <delphi-l@clexpert.cz>
Sent: Tuesday, March 16, 2004 10:27 PM
Subject: Jak zjistim vsechny checkboxy na formulari?

> Zdravim,
>
> poradi mi nekdo, jak mohu zjistit, jestli mam na formulari nejake
> checkboxy
> a pokud ano, jak zjistit jejich nazvy?
> Chci si udelat proceduru, ktera pri odchodu z formulare ulozi stav
> checkboxu (checked=true/false)
> a ulozi to do souboru.
> Naopak pri otevreni precte hodnoty ze souboru a nastavi checkboxy.
>
> Diky
>
> David Klodner
>
> WinXP, D5 Prof., IB
>
>
>
>

Odpovedá: votavaSW

17. 3. 2004 0:56

for i:=0 to Panel5.ControlCount-1 do
begin
  try
   if Panel5.Controls[i].ClassName='TCheckBox' then
    begin
          Reg.WriteBool(intToStr(regIndex),(Panel5.Controls[i] as
TCheckBox).Checked);
          inc(regIndex);
    end;
    except
    end;
  end;

pri otevreni staci hodnotu registru precist
s pozdravem Votava

> Zdravim,
>
> poradi mi nekdo, jak mohu zjistit, jestli mam na formulari nejake
> checkboxy
> a pokud ano, jak zjistit jejich nazvy?
> Chci si udelat proceduru, ktera pri odchodu z formulare ulozi stav
> checkboxu (checked=true/false)
> a ulozi to do souboru.
> Naopak pri otevreni precte hodnoty ze souboru a nastavi checkboxy.
>
> Diky
>
> David Klodner
>
> WinXP, D5 Prof., IB
>
>
>
>

Odpovedá: Slavomir Skopalik

17. 3. 2004 0:55

Zkus neco jako (jako metodu formulare):
for i:=0 to ComponentCount-1 do
if Components[i] is TCheckBox then {co chces udelat} ;

Jmeno je v property name.

Slavek

PS: Jakou verzi IB pouzivas ?

> Zdravim,
>
> poradi mi nekdo, jak mohu zjistit, jestli mam na formulari
> nejake checkboxy a pokud ano, jak zjistit jejich nazvy?
> Chci si udelat proceduru, ktera pri odchodu z formulare ulozi
> stav checkboxu (checked=true/false) a ulozi to do souboru.
> Naopak pri otevreni precte hodnoty ze souboru a nastavi checkboxy.
>